home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / fgl110c.zip / 06-11.C < prev    next >
Text File  |  1992-01-31  |  774b  |  39 lines
  1. #include <fastgraf.h>
  2.  
  3. void main(void);
  4.  
  5. #define RECTANGLES 200
  6. #define SWAP(a,b,temp) { temp = a; a = b; b = temp; }
  7.  
  8. void main()
  9. {
  10.    int i;
  11.    int minx, maxx, miny, maxy;
  12.    int old_mode;
  13.    int temp;
  14.    int xres, yres;
  15.  
  16.    old_mode = fg_getmode();
  17.    fg_setmode(fg_automode());
  18.    fg_boxdepth(3,3);
  19.  
  20.    xres = fg_getmaxx() + 1;
  21.    yres = fg_getmaxy() + 1;
  22.  
  23.    for (i = 0; i < RECTANGLES; i++) {
  24.       minx = rand() % xres;
  25.       maxx = rand() % xres;
  26.       miny = rand() % yres;
  27.       maxy = rand() % yres;
  28.       if (minx > maxx)
  29.          SWAP(minx,maxx,temp);
  30.       if (miny > maxy)
  31.          SWAP(miny,maxy,temp);
  32.       fg_setcolor(rand()%16);
  33.       fg_box(minx,maxx,miny,maxy);
  34.       }
  35.  
  36.    fg_setmode(old_mode);
  37.    fg_reset();
  38. }
  39.